From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 May 1993 20:05:36 +0000 (+0000)
Subject: (isearch-done): Don't activate mark.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96259
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=20f3a745bb2ac52425d97c0d061ffcf83be7e98a;p=emacs.git

(isearch-done): Don't activate mark.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 0fd896f1c70..9833d7d0126 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1993/04/23 07:31:14 $|$Revision: 1.31 $
+;; |$Date: 1993/05/14 18:02:55 $|$Revision: 1.32 $
 
 ;; This file is not yet part of GNU Emacs, but it is based almost
 ;; entirely on isearch.el which is part of GNU Emacs.
@@ -92,8 +92,12 @@
 ;;;====================================================================
 ;;; Change History
 
-;;; $Header: /home/fsf/rms/e19/lisp/RCS/isearch.el,v 1.31 1993/04/23 07:31:14 eric Exp rms $
+;;; $Header: /gd/gnu/emacs/19.0/lisp/RCS/isearch.el,v 1.32 1993/05/14 18:02:55 rms Exp rms $
 ;;; $Log: isearch.el,v $
+; Revision 1.32  1993/05/14  18:02:55  rms
+; (isearch-mode-map): Handle any length vector in keymap.
+; (isearch-char-to-string): Handle non-character events properly.
+;
 ; Revision 1.31  1993/04/23  07:31:14  eric
 ; Replaced all fsets with defaliases.
 ;
@@ -676,6 +680,8 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
     (if (/= (point) isearch-opoint)
 	(progn
 	  (push-mark isearch-opoint t)
+	  (if transient-mark-mode
+	      (setq mark-active nil))
 	  (or executing-macro (> (minibuffer-depth) 0)
 	      (message "Mark saved where search started")))
       ;; (message "") why is this needed?